unit IUIngredienteUnidade;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, DBCtrls, DB, DBTables;

type
  TFormIUIngredienteUnidade = class(TForm)
    Label2: TLabel;
    DataSource1: TDataSource;
    QueryUnidade: TQuery;
    DBLookupListBox1: TDBLookupListBox;
    Button1: TButton;
    Button2: TButton;
    DBLookupListBox2: TDBLookupListBox;
    Label3: TLabel;
    DataSource2: TDataSource;
    QueryUnidadeIngred: TQuery;
    LabelIngrediente: TLabel;
    BitBtn1: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure Atualiza;
  public
    { Public declarations }
    xIdIngrediente:integer;
  end;

var
  FormIUIngredienteUnidade: TFormIUIngredienteUnidade;
  sql:string;

implementation

uses Principal;

{$R *.dfm}

procedure TFormIUIngredienteUnidade.FormActivate(Sender: TObject);
begin
    QueryUnidade.Open;

    if xIdIngrediente > 0 then
       Atualiza;


end;

procedure TFormIUIngredienteUnidade.Atualiza;
begin
    QueryUnidade.ParamByName('p_ingrediente').AsInteger :=  xIdIngrediente;
    QueryUnidade.Close;
    QueryUnidade.Open;

    QueryUnidadeIngred.ParamByName('p_ingrediente').AsInteger :=  xIdIngrediente;
    QueryUnidadeIngred.Close;
    QueryUnidadeIngred.Open;

end;

procedure TFormIUIngredienteUnidade.Button2Click(Sender: TObject);
begin

    sql := 'delete from item_estoque_unidade where id = ' + QueryUnidadeIngred.FieldByName('id').AsString;
    FormPrincipal.QueryAtualiza.SQL.Clear;
    FormPrincipal.QueryAtualiza.SQL.Add(sql);
    FormPrincipal.QueryAtualiza.ExecSQL;

    Atualiza;

end;

procedure TFormIUIngredienteUnidade.Button1Click(Sender: TObject);
begin
    sql := 'insert into item_estoque_unidade (id_unidade,id_item_estoque)' +
           'values (' + QueryUnidade.FieldByName('id').AsString + ',' + IntToStr(xIdIngrediente) + ')';
    FormPrincipal.QueryAtualiza.SQL.Clear;
    FormPrincipal.QueryAtualiza.SQL.Add(sql);
    FormPrincipal.QueryAtualiza.ExecSQL;

    Atualiza;
end;

end.
